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ccccccce 000000 BBBBBBBB ceccccccce «(VV VV oTTTTTTTIIT QQQQ0Q DDDDDDDD 
cccccccc 000000 BBBBBBBB ceccccce =v VV oTTTTTTTTIT QQQaa0 DDDDDDDD 

cc 00 88 BB CC VV VV TT QQ QQ DD DD 

cc 00 88 BB CC VV VV TT QQ QQ DD DD 

cc 00 00 88 BB CC VV VV TT QQ QQ OD DD 

cc 00 00 88 BB CC VV VV TT QQ QQ DD DD 

cc 00 00 88888888 cc VV VV TT QQ QQ DD DD 

cc 00 00 88888888 cc VV VV TT Q QQ OD DD 

cc 00 00 BB CC VV VV TT QQ QQ QQ ODD DD 

cc 00 88 BB CC Vv Vu TT QQ QQ QQ DD DD 

cc 00 00 88 BB CC VV VV TT QQ QQ DD DD eeee 

cc 00 00 88 BB CC VW VV TT QQ QQ DD DD coee 
cccccccc 000000 BBBBBBBB cccccccc VV TT QQQQ QQ DDDDDDDD eee 
cccccccc 000000 BBBBBBBB ccccccce VV TT QQQQ QQ DDDDDDDD cece 

LL III! SSSSSSSS 

LL HII] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 
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; Detailed Current Edit History 
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MODIFIED BY: 


COBSCVTQD_R8B COBOL Convert Quad to Double 15-SEP-1984 23:39:56 VAX/VMS Macro v04-00 Page 1 
| 1-004 g-sEb-19be $3; 3; 726 CCOBRTL.SRCJCOBCVTQD.MAR; 1 ° (1) 
00 1 - TITLE COs Cy TAD _RE COBOL Convert Quad to Double 
6 ¢ eIDENT /1-004/ ; File: COBCVTQD.MAR 
4 ; 
. $ PIPES ESOS ISITE TTT TEP eee iiii iii iiiiiiiiitiiiiti ity 
7* * 
009 S 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
00 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
000 16 pe ALL RIGHTS RESERVED * 
5 7 
00 11 ;* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND ot * 
4444 \¢ 3* ONLY IN eet ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
000 13 ;* INCLUSION OF THE ABOVE Spit NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1 :* TRANSFERRED. * 
3 & 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 MY is CORPORATION. * 
$ % 
0000 $§ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 ;* * 
0000 a6 : 3* * 
0000 6 FRRRR RARE ERE AEA A AREER AERA RARER AREER AREER E REET EET 
0000 7 : 
0000 28 ; FACILITY: COBOL SUPPORT 
0000 9 ;+ 
0000 Oo § ABSTRACT: 
0000 1 3 This module contains the routine that converts quadword numbers 
0000 3 $ to double floating. 
0000 3 $ 
0000 e 3 
0000 35 3-- 
0000 36 ; 
0000 37 ; VERSION: 1 
0000 H 3 
0000 9 ; HISTORY: 
0000 40 ; 
0000 41 ; AUTHOR: 
0000 4g : 
0000 43 ; 
S44 44 ; 
0 45; 
0000 46 ; 
0000 47; 
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CoeoL Convert Quad to Double 15-SEP-1984 23:39:56 pealyes Macro V04-00 Pa 
HIST bRY Detailed Current “edit History rat ets 9 ua 2:43:26 ECOBRTL. SRETCOMCVTOD.MAR: 1 - 3) 

$8 3 ~SBTTL HISTORY ; Detailed Current Edit History 

By 

000 ¢ ; Edit History for Version 1 of COBCVTQD 

$009 3 : 1-001 - Original. MLJ 14-Mar-1979 

2990 55 ; 1-002 - oe external references oupi fett. RKR 17*JULY-1979 

0000 56 ; 1-003 - pangs 3 ot references to FORSCNV_IN_DEFG to OTSS$CVT_T_D 

0000 57; ere T-79 

0000 58 ; 1-004 - Eosesete sheratts RKR 18-OCT-79 


oH —_ -——_-_ - —- | es er > Or 2 OOo OOo ees see a 
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COBSCVTQD_R8B COBOL Convert Quad to Double 15-SEP-1984 23:39:56 VAX/VMS M v04-00 P 
| 7-006 DECLARATIONS 66-SEP-1984 93:23:36 LCOBRTL. SREICOBCVTOD. MAR; 1 — 3) 
p $9 -SBTTL DECLARATIONS 
62 ; 
8 és ; INCLUDE FILES: 
09 65° SDSCDEF 
g 
3 68 : EXTERNAL SYMBOLS: 
00 19 -DSABL GBL ; Prevent undeclared symbols from being 
4900 re ; automatically global 
000 7 -EXTRN OTSSCVT_T : 0, E, F, 
9000 a E OTSSCVT_T_D D. E G Conversion Routine 
44 75 ; 
3 
$000 78 : MACROS: 
0000 79 ; NONE 
0000 80 ; 
0000 Ba 
0000 Hd > PSECT DECLARATIONS: 
00000000 84 -PSECT _COBSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 «BG : 
0000 7 $ EQUATED SYMBOLS: 
0000 8 ; NONE 
0000 89 ; 
0000 91 
0000 36 : OWN STORAGE: 
83 
0000 95 : The pet touine constant has the value 2**32. It is used for scaling 
44 38 : the high 32 bits and for compensating for unsigned arithmetic. 
6C 29 67 49 29 04 0000 98 BIAS: .PACKED 4294967296 ; 20032 
0000000A 3008 18 BIAS_DIGITS=10 


_ LS 


IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
; 1 = SUCCESS, 0 = FAILURE 
SIDE EFFECTS: 
Destroys registers RO through R8. 


ol COBSCVTaD RB, Ua tO Double Pe B=$EP=1986 FOse3:36 LCOaRTL. SReScOReV TOD. MAR; 1 
0 -SBTTL COBSCVTQD_R8 
| {FUNCTIONAL DESCRIPTION: 
6 3 Converts 64-bit (quadword) numbers to double floating. 
99 ; CALLING SEQUENCE: 
090 ! JSB COBSCVTQD_RB (scale.rl.v, src.rq.r, dst.wd.r) 
688 ! Arguments are passed in R6, R7, and R8. 
it ! INPUT PARAMETERS: 
000 1 3 SCALE.rl.v The power of ten by which the internal 
000 18 ; representaiion of the source must be 
000 19 3 multiplied to scaie the same as the 
000 3 internal representation of the dest. 
4 SRC.rq.r The number to be converted 
38 IMPLICIT INPUTS: 
Oo ALL of the trap bits in the PSL are assumed off. 
4 : OUTPUT PARAMETERS: 
3 DST.wd.r The place to store the converted number 


COBSCVTQD_R8:: : 
SOBL2 #40,SP ; Space for temp string and result 


“ 
m 
™~m 
co 
oO 
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: Convert the quadword input to packed. 


CMPV #31,81,(R7),4(R7) ; Is number in longword range? 
BNEQ 118 ; Br if not to slower code 
CVTILP = (R7) , #19, 8(SP) :; Convert low order longword 
BRB 138 3; To common code 
11$: CVTILP «= 4(R7) , #10, (SP) ; Convert high order longword 
MULP = #BIAS_DIGITS ,BIAS.#10, (SP) .#19,8(SP) 


; Multiply by 2**32 


a a ee em ee ee ed ed ed ed ed od dd od 


PUPP Ee BP BE BE EE WWIII II 
BIE ARO ODNAUES WN O OONAUES WIN 9 ODNAUE WN OO OD NOAU SW OWOONOUS WI 


wo ONn 


wr" —orn 
BED DD BQO OOPAAPAAPAAA AA AAA AA AAA AAA AAAAAAAAAAAAAOSAPSAAASOASAASA OCF 


SOCoOSOoOOCOOSOOOOSOOOOOOSOSOOSOOSOOSOOOSOOOOOOOO 


SOOOoCoooooooooooooooooooooososoSaSa 
RNR] |] “DOOOCOOQOooooooooooooooooSo 
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COBSCVTQD_R8B epee Conve. ro V04-00 Page 5 
i- COBSCVTQD_R8 66-SEP-1984 4 COBRTL.SRCICOBCVTQD.MAR; 1 (4) 
6— OA yf 6 138 CVTLP = (R7) , #10, (SP) 3; Convert low order longword 
mee F ee BGEQ 12$ ; Br if nonnegative 
6€ OA DO AF is 169 ADDP4 #BIAS_DIGITS BIAS, #10, (SP) 7 ' 4 ‘ 
3; Correct for signed conversion 
OB AE 13 6E 0A 20 162 128: ADDP4 #10, (SP),#19,8(SP) 5 Sum low ond high order parts 
184 ; Convert the packed intermediate to leading separate. 
14 AE 13 O8 AE 13 08 8 166 13$: CVTPS #19,8(SP),#19,20(SP) ; Make a separate sign string 
° : 198 ; Make a descriptor for the leading separate string. 
53 OD F 19 ; PUSHL R3 3; Address = temp string 
7E O01 90 41 171 MOVB #OSCS$K_CLASS_S,=-(SP) ; Class = static 
7E OE 90 44 \7¢ MOVB 1 Nar DTYPE_T,=-(SP) ; Data type = ASCII text 
7E 14 860 rH 1 MOVW #20,-(SP) ; Length = 20 bytes 
Och 173 : Now call the conversion routine. 
7E 56 CE 004A 177° MNEGL R6,-(SP) ; Scale factor 
00 OD Bee 178 PUSHL # 3; Digits in fraction 
10 AE OF QO04F 179 PUSHAB 16(SP) 3; Address of result area 
OC AE OF Bpee 139 PUSHAB 12(SP) 3; Address of descriptor 
00000000'GF 04 FB 905 181 CALLS #4,G*OTSSCVT_T_D : Call the routine 
6° 50 9 005C 13 BLBC RO,15$ ; Failure, must be overflow 
68 O08 AE 70 O05 18 MOVD 8 (§P), (RB) : Store result 
50 1 p00 0063 184 MOVL #1,R0 : Indicate success 
5E 0 CO 0066 185 148: ADDL2 #48,SP 3; Delete stack temps 
05 Boek 136 RSB 3; Return 
DOgA \38 : Come here on overflow to store the reserved operand. 
68 O1 OF 79 006A 190 15$: ASHQ #15,#1,(R8) : Store reserved operand 
50 D4 OO6E 191 CLRL RO 3; Indicate failure 
F4 11 0070 135 BRB 14$ : Delete stack temps and return 
0072 193; 
0072 194 -END 
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Symbol table - 4 COBRTL.S 
BIAS ° OR 02 
BIAS_DIGITS = A 
COBSCVTQD_RB& 6 RG 02 
DSCSK_CLASS_S s 3 1 
DSCSK-DTYPE_T = E 
OTS$CVT_T_D eenenere =X 00 
i om oe + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
ABS 00000000 < 0.) 0¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE 
S$ 00000000 0.) 1¢ 1.) NOPIC USR CON’ ABS LCL NOSHR EXE 
_COBSCODE 00000072 114.) 02 ¢ 2.) PIC USR CON’ REL LCL SHR EXE 
$ecee enw oeconn one no mame oe 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization $3 00:00:00.07 00:00:01.13 
Command processing 123 ba Ss BE Ss Se ae 
ass 140 38? 888k +8 00:00:05.34 
Symbol table sort 0 Se Hh B44 00:00:00.93 
Pass 2 48 00:00:00.36 00:00:02.29 
Symbol table output 3 00:00:00.01 00:00:00.02 
Psect synopsis output 2 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 347 00:00:02.09 00:00:12.00 


The working set Limit was 900 pages. F 

8720 bytes (18 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 135 non-local and 5 local symbols. 
194 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


$ewowoeeeooccoecceccccccccn} 


! Macro Library statistics H 
pewoeeeeoeeoooeoeeesecocecan 


Macro Library name Macros defined 
~$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


-00 Page 


cro V04 
RCIJCOBCVTQD.MAR; 1 


NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:COBCVTQD/0BJ=0BJ$:COBCVTQD MSRC$:COBCVTQD/UPDATE=(ENH$: COBCVTQD) 
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